home *** CD-ROM | disk | FTP | other *** search
- HONEYWELL GCOS KERMIT
-
-
- This is the release notes for version 3.0 of KERMIT-GCOS for the Honeywell
- DPS 6 and DPS 8, running either GCOS8 or GCOS3. The program is written in the
- C language, adapted from Columbia University Unix Kermit, and is distributed in
- both source and printably-encoded binary form. This release depends on
- modifications to the Datanet 8 DNS software or to NPS. Contributed by:
-
- Terry Carlin, Carlin%pco@MIT-MULTICS
- Honeywell Information Systems Inc
- 333 Wyman Street
- Waltham, MA 02154
- Phone 617-895-3377
-
- This release contains the following files:
-
- Kermit
- Distribution Original
- Filename Filename Description
- --------- ----------- --------------------------------------------
- HGKER.HLP README This file.
- HGKER.B KERMIT.B 'PRINTABLE' version of KERMIT-GCOS.
- HGBOOT.A HBOOT.A Assembly program to make KERMIT.B into a
- system loadable file (H*).
- HGMKBOO.A HMKBOO.A Assembly program to make printable (BOOT)
- files from system loadable (H*) files
- on DPS 66 and DPS8.
- HGKER.C KERMIT.C 'C' source for KERMIT-GCOS
- HGKER.DOC KERMIT.E EXPLAIN (HELP) file for KERMIT-GCOS.
- HGDNS.DOC DNS.DOC DNS terminal model for KERMIT-GCOS (PCTRAN).
- HGNPS.DOC NPS.DOC Documentation for NPS mods.
-
- Installation is as follows:
-
- 1. Use JCL below to unload the ANSI multi-file tape.
- 2. The IDENT and PARAM cards must be changed to reflect the site options.
- 3. Copy KERM to the CMDLIB.
- 4. Copy KERMIT.E to the EXPL catalog and make entry into
- EXPL/INDEX.
-
- (jcl follows)
-
- [Editor's note: This JCL is intended for use on a tape that only contains
- the Honeywell files, and will have to be suitably modified for use with a
- standard Kermit distribution tape.]
-
- 10$$N,J,MONI
- 20$:IDENT:accounting info,site params INSTALL KERMIT
- 25$:USERID:your-userid$your-password
- 26$:NOTE:PARAM CARDS CONTAINS YOUR USERID AND THE KERMIT RELEASE NUMBER
- 30$:PARAM:your-userid,K3.0
- 40$:FILSYS
- 50 IGNORE ERRS
- 60CC /KERMIT
- 62CC /KERMIT/K3.0
- 70CPOS /KERMIT/K3.0
- 80CF README,LLINKS/1,UNLIMITED/
- 90CF KERMIT.B,LLINKS/60,UNLIMITED/
- 100CF HBOOT.A,LLINKS/5,UNLIMITED/
- 110CF HMKBOO.A,LLINKS/5,UNLIMITED/
- 120CF KERMIT.C,LLINKS/10,UNLIMITED/
- 130CF KERMIT.E,LLINKS/5,UNLIMITED/
- 140CF DNS.DOC,LLINKS/5,UNLIMITED/
- 150CF NPS.DOC,LLINKS/5,UNLIMITED/
- 160CF MSKERMIT,LLINKS/10,UNLIMITED/
- 170CF MSL610.A,LLINKS/25,UNLIMITED/
- 180CF MSTRAN.B,LLINKS/5,UNLIMITED/
- 190CF KERM,LLINKS/35,UNLIMITED/,MODE/RAND/
- 200$:UTL2
- 210$:TAPE:OT,O1D,,KERMIT,,RING-IN,,DEN16
- 220$:PRMFL:01,W,S,#1/KERMIT/#2/README
- 230$:PRMFL:02,W,S,#1/KERMIT/#2/KERMIT.B
- 240$:PRMFL:03,W,S,#1/KERMIT/#2/HBOOT.A
- 250$:PRMFL:04,W,S,#1/KERMIT/#2/HMKBOO.A
- 260$:PRMFL:05,W,S,#1/KERMIT/#2/KERMIT.C
- 270$:PRMFL:06,W,S,#1/KERMIT/#2/KERMIT.E
- 280$:PRMFL:07,W,S,#1/KERMIT/#2/DNS.DOC
- 290$:PRMFL:08,W,S,#1/KERMIT/#2/NPS.DOC
- 300$:PRMFL:09,W,S,#1/KERMIT/#2/MSKERMIT
- 310$:PRMFL:10,W,S,#1/KERMIT/#2/MSL610.A
- 320$:PRMFL:11,W,S,#1/KERMIT/#2/MSTRAN.B
- 330FDEF OT,ANSI,CI1024,MR90.
- 340FDEF 01 AND 02 AND 03 AND 04 AND 05 AND 06,GFRC,ASCII.
- 350FDEF 07 AND 08 AND 09 AND 10 AND 11,GFRC,ASCII.
- 360PROC REWIND OT. COPY OT TO 01 1FILE.
- 370PROC COPY OT TO 02 1FILE.
- 380PROC COPY OT TO 03 1FILE.
- 390PROC COPY OT TO 04 1FILE.
- 400PROC COPY OT TO 05 1FILE.
- 410PROC COPY OT TO 06 1FILE.
- 420PROC COPY OT TO 07 1FILE.
- 430PROC COPY OT TO 08 1FILE.
- 440PROC COPY OT TO 09 1FILE.
- 450PROC COPY OT TO 10 1FILE.
- 460PROC COPY OT TO 11 1FILE.
- 490$:gmap:ndeck
- 500:lodm:.dmac
- 510:symref:.dvlri
- 520:symdef:open
- 530open:dopen:,,[*,fib,in,,.dvlri]
- 540begin:stz:cnt
- 550:eax2:inbuf
- 560:awdx:0,2,2
- 570loop:dlgxt:fib,vibot,eof,[rsz,64]
- 580:mlr:,(1)
- 590:adsc9:wksp,0,64
- 600:adsc9:0,0,64,2
- 610:awd:16,,2
- 620:aos:cnt
- 630:lda:=6
- 640:cmpa:cnt
- 650:tnz:loop
- 660:eax5:inbuf
- 670:lda:=o717717717720
- 680:rpt:96,1
- 690:asa:0,5
- 700:mlr
- 710:adsc9:inbuf,0,384
- 720:adsc6:otbuf,0,384
- 730:mme:geinos
- 740:sdia
- 750:zero:fc,dcw1
- 760:wdic
- 770:zero:fc,dcw2
- 780:zero:statr,0
- 790:mme:geroad
- 800* WRITE H*
- 810:aos:ctr
- 820:lda:ctr
- 830:sta:ptr
- 840:tra:begin
- 850eof:null
- 860:mme:gefini
- 870***************************
- 880* DATA
- 890***************************
- 900dcw1:iotd:ptr,1
- 910ptr:zero:0,0
- 920fc:bci:1,0000HS
- 930dcw2:iotd:otbuf,64
- 940inbuf:bss:96
- 950otbuf:bss:64
- 960statr:dec:0,0
- 970ctr:dec:0
- 980cnt:dec:0
- 990mask:oct:077077077077
- 1000wksp:bss:16
- 1010vibot:bss:2
- 1020fib:null
- 1030:fibmac:in,gfrc,[nbuf,1,proar,wksp,0,medcod,6]
- 1040:end
- 1050$:execute:dump
- 1060$:PRMFL:IN,R,S,#1/KERMIT/#2/KERMIT.B
- 1070$:PRMFL:HS,W,R,#1/KERMIT/#2/KERM
- 1080$:endjob
-